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proc TOM (node i) 
Cobegin 

TOM_send(); TOM_receive() 
Coend 

proc TOM_send (message m b , receivers Rec) 

Begin /* i is SN */ 

Ifm*OAndi = SN(m) 
Then m h = (l(i)_Rec, seq_#, _, false) 
m = (m h , mP) 

reliable_multicast(m, Rec) 
TOM_cast(m^, parent(i)) 

End 

proc TOM_cast (message m, receiver rec) 
Begin /* self-route from node i to rec */ 
If 1/(01 >\l(receiver)\) 
Orlf l(i) * prefix(rec) 
Then If 3 parent(i) 

Then unicast(m) to parent(i) 
Else If 3 children(i) 

Then unicast(m) to child(i) 

where l(child(i)) = prefix(l(rec)) 

End 

proc TOM_receive (message m; receivers Rec) 
Begin 

If i * Recim) /* i is EN */ 

Then unicast(m) to parent(i); 
Else If of(m) = false And m b = 0 /* i is pN */ 
Then tag with new seq#; 

TOM_cast(m, parent(i)) 
Else If l(i) e Rec /* i is RN */ 

Then If m b * 0. And of(m) = false 
Then insert (m b , uw) 
Else shift m from uw to ow 
deliver(head(ow), local processes) 
Else compute longest common prefix lcp = (m, pm) 
Iflcp = I(i)/*iisON*/ 
And (query parent(i) for pending msgs = 0) 
Then Forall msgs in uw select seq#s 
shift msgs with set seq#s into ow 
TOM_cast(head(ow, Rec)) 

End 
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